perm filename TFIX.F4[RST,LCS] blob sn#244632 filedate 1976-10-29 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION R(10)
C00003 ENDMK
CāŠ—;
	DIMENSION R(10)
	TYPE 1
	ACCEPT 2,A
4	K=2
	R(K)=A
	J=-R(K)
	N=-A
	TYPE 3,N,A,J,R(K)
1	FORMAT(' TYPE A NUMBER '$)
2	FORMAT(F)
3	FORMAT(I5,F4.0)
	END